home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / tttsrc / ticf1.frm < prev   
Text File  |  1995-05-08  |  5KB  |  190 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "TicTacToe"
  6.    ClientHeight    =   4590
  7.    ClientLeft      =   225
  8.    ClientTop       =   1530
  9.    ClientWidth     =   4215
  10.    Height          =   4995
  11.    Left            =   165
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "TICF1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   4590
  16.    ScaleWidth      =   4215
  17.    Top             =   1185
  18.    Width           =   4335
  19.    Begin CheckBox XCheck 
  20.       BackColor       =   &H00000000&
  21.       Caption         =   "I'm playing  X"
  22.       ForeColor       =   &H00FFFFFF&
  23.       Height          =   375
  24.       Left            =   360
  25.       TabIndex        =   6
  26.       Top             =   3600
  27.       Width           =   1575
  28.    End
  29.    Begin ListBox namelist 
  30.       Height          =   1980
  31.       Left            =   2160
  32.       TabIndex        =   3
  33.       Top             =   1920
  34.       Width           =   1695
  35.    End
  36.    Begin Label Label4 
  37.       BackColor       =   &H00000000&
  38.       Caption         =   "Please choose your OPPONENT from the list on the right."
  39.       ForeColor       =   &H00FFFFFF&
  40.       Height          =   855
  41.       Left            =   360
  42.       TabIndex        =   4
  43.       Top             =   2400
  44.       Width           =   1455
  45.    End
  46.    Begin Label Label3 
  47.       Alignment       =   2  'Center
  48.       BackColor       =   &H00000000&
  49.       Caption         =   "Copyright 1994, Virtual Systems"
  50.       ForeColor       =   &H0000FFFF&
  51.       Height          =   255
  52.       Left            =   120
  53.       TabIndex        =   2
  54.       Top             =   4320
  55.       Width           =   3975
  56.    End
  57.    Begin Label Label2 
  58.       Alignment       =   2  'Center
  59.       BackColor       =   &H00000000&
  60.       Caption         =   "For use with America Online and C-Room"
  61.       FontBold        =   -1  'True
  62.       FontItalic      =   0   'False
  63.       FontName        =   "Arial"
  64.       FontSize        =   12
  65.       FontStrikethru  =   0   'False
  66.       FontUnderline   =   0   'False
  67.       ForeColor       =   &H00FF00FF&
  68.       Height          =   615
  69.       Left            =   360
  70.       TabIndex        =   1
  71.       Top             =   960
  72.       Width           =   3375
  73.    End
  74.    Begin Label Label1 
  75.       BackColor       =   &H00000000&
  76.       Caption         =   "Tic Tac Toe"
  77.       FontBold        =   -1  'True
  78.       FontItalic      =   0   'False
  79.       FontName        =   "Arial"
  80.       FontSize        =   24
  81.       FontStrikethru  =   0   'False
  82.       FontUnderline   =   0   'False
  83.       ForeColor       =   &H0000C000&
  84.       Height          =   615
  85.       Left            =   720
  86.       TabIndex        =   0
  87.       Top             =   120
  88.       Width           =   2775
  89.    End
  90.    Begin Label Label5 
  91.       Caption         =   "Label5"
  92.       Height          =   255
  93.       Left            =   2280
  94.       LinkItem        =   "People"
  95.       LinkTopic       =   "Croom|People"
  96.       TabIndex        =   5
  97.       Top             =   1920
  98.       Width           =   735
  99.    End
  100. End
  101. Dim foo
  102.  
  103.  
  104.  
  105. Sub Form_Load ()
  106.        'label5.LinkMode = 3
  107.    label5.LinkMode = 2
  108.    label5.LinkRequest      ' change, so get a new list
  109.    label5.LinkMode = 3     ' of people in the room
  110.     foo = 0
  111.     namelist.Clear
  112.     StartLoc = 1
  113.     For lp = 1 To Len(label5)
  114.         If Mid$(label5, lp, 1) = ";" Or lp = Len(label5) Then
  115.           temp = Mid$(label5, StartLoc, ((lp) - StartLoc))
  116.           namelist.AddItem temp
  117.           StartLoc = lp + 1
  118.         End If
  119.     Next
  120.     
  121.  
  122. End Sub
  123.  
  124. Sub Form_Unload (Cancel As Integer)
  125.        label5.LinkMode = 0
  126. End Sub
  127.  
  128. Sub Label5_LinkNotify ()
  129. '   label5.LinkMode = 2     ' We've been notified of a
  130. '   label5.LinkRequest      ' change, so get a new list
  131. '   label5.LinkMode = 3     ' of people in the room
  132. '
  133. '   namelist.Clear
  134. '   StartLoc = 1
  135. '   For lp = 1 To Len(label5)
  136. '       If Mid$(label5, lp, 1) = ";" Or lp = Len(label5) Then
  137. '         temp = Mid$(label5, StartLoc, ((lp) - StartLoc))
  138. '         namelist.AddItem temp
  139. '         StartLoc = lp + 1
  140. '       End If
  141. '   Next
  142.     
  143. End Sub
  144.  
  145. Sub namelist_Click ()
  146.     CurrentMove = "X"
  147.     foo = foo + 1
  148.     If foo = 1 Then
  149.         opponent = namelist.Text
  150.         label4 = "Now, Pick YOUR screen name from the list on the right."
  151.    'label5.LinkMode = 2
  152.    'label5.LinkRequest      ' change, so get a new list
  153.    'label5.LinkMode = 3     ' of people in the room
  154.         
  155.     Else
  156.         Yourself = namelist.Text
  157.         If XCheck.Value = 1 Then
  158.         Marker = "X"
  159.         OMarker = "O"
  160.         Else
  161.         Marker = "O"
  162.         OMarker = "X"
  163.         End If
  164.  
  165.         
  166.         form2.Show
  167.         form1.Hide
  168.     End If
  169.     
  170. End Sub
  171.  
  172. Sub Text1_LinkNotify ()
  173.    label5.LinkMode = 2
  174.    label5.LinkRequest      ' change, so get a new list
  175.    label5.LinkMode = 3     ' of people in the room
  176.  
  177.     namelist.Clear
  178.     StartLoc = 1
  179.     For lp = 1 To Len(label5)
  180.         If Mid$(label5, lp, 1) = ";" Or lp = Len(label5) Then
  181.           temp = Mid$(label5, StartLoc, ((lp) - StartLoc))
  182.           namelist.AddItem temp
  183.           StartLoc = lp + 1
  184.         End If
  185.     Next
  186.     
  187.     
  188. End Sub
  189.  
  190.